Top 10k strings from Concon - Issue 02 - Hormiga (1984)(Sift)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 ;"CALCULO LONGITUD DE UNA";
   2 a$="01234567890123456789012345678901"
   2 ;"CIRCUNFERENCIA DADO EL RADIO"
   2 "Radio = ";radio
   2 "Donde lo escribo:";tab
   2 "Con un radio de ";radio'"La longitud es ";
   1 s,pos;" ":
   1 repite programa
   1 pa;a$(lon-s+1
   1 pa;a$(lon)
   1 pa;".   CONCON"
   1 pa;" 90 grados "
   1 o$=" yp=ordenada de P ":
   1 nume=nume+separ:
   1 nombra ejes d4
   1 nombra ejes a6
   1 n$=" "+(""
   1 mueve la hormiga
   1 movimiento
   1 marca numero a16
   1 lesiby=nume-256
   1 hormiga de SIFT, S.A.
   1 escribe P a10
   1 escribe 2 a2
   1 escribe 1 a1
   1 ejecuta movimiento
   1 e$=" EL PUNTO P "
   1 divide ejes d5
   1 divide ejes a15
   1 dirin=dirin+longit:
   1 dirin=dirin+1
   1 dirin,mosiby:
   1 dibuja ejes a3
   1 dibuja P a11
   1 dib. cuadrantes d2
   1 d. ordenada P a13
   1 d. abcisa P a12
   1 d$="(xp,yp)":
   1 cuadrantes a9
   1 cuadrantes
   1 cabecera d1
   1 c$=" Coordenadas de P ":
   1 borra todo P a14
   1 borra cuad. d3
   1 borra carteles a5
   1 b$="  xp=abcisa de p  ":
   1 a$="Si quiere repetir":
   1 a$="EJES DE COORDENADAS":
   1 a$="A P R I E T E   s":
   1 a$="* S I F T S.A.*":
   1 a$="(16,-27)":
   1 a$="(12,16)":
   1 a$="(-34,-22)":
   1 a$="(-28,9)":
   1 a$=" eje de ordenadas ":
   1 a$=" eje de abcisas ":
   1 a$=" Unidades ":
   1 a$=" PRESENTA ":
   1 a$=" M A T E M A T I C A S  1 ":
   1 a$=" Largas=10, Cortas=5":
   1 a$=" IV CUADRANTE ":
   1 a$=" III CUADRANTE ":
   1 a$=" I CUADRANTE  ":
   1 a$=" DIVISIONES DE LOS EJES ":
   1 a$="  II CUADRANTE ":
   1 SUBRUTINAS d0
   1 MG1 Coordenadas
   1 MG1       
   1 M-29966-1984
   1 IB16=Circunferencia
   1 IB16      
   1 IB15=Circunferencia
   1 IB15      
   1 IB14=Circunferencia
   1 IB14      
   1 IB13      i
   1 IB12      
   1 IB11      
   1 Hormiga   
   1 HORMIGA - SIFT N.2 VOL.1
   1 CZX1      
   1 CAMBIA LOS NUMEROS DE           
   1 ;"CIRCUNFERENCIA DADO EL RADIO":
   1 ;"Apriete cualquier tecla":
   1 *(nulin<n91)
   1 '''''''''''''
   1 "Radio = ";radio:
   1 "Linea inicial a mover:";n91'"Linea inicial a NO mover:";n92'"Linea inicial NUEVA:";n90'"Separacion entre lineas:";separ:
   1 "Digito:";a
   1 "Con un radio de ";radio'"La longitud es ";radio*2
   1 ";"F i n";
   1            LINEA DE UNA SUBRUTINA